

; PLUGIN STEP 3: CONSTRUCTOR FUNCTION

(defun Item-Test-Analysis
  (&key 
  (data *current-data*)     ; universal keyword
   (dialog nil)             ; universal keyword
   )
  (send reliability-model-object-proto  :new "Item-Test-Analysis" data dialog))
  

 

;; PLUGIN STEP 4: DEFPROTO STATEMENT

(defproto reliability-model-object-proto'(dialog-value data scale scale-if n-items n-items-1 item-variances item-std item-kurtosis item-skewness scale-variance scale-variance-if scale-std scale-std-if scale-skewness scale-skewness-if scale-kurtosis scale-kurtosis-if item-means scale-mean scale-mean-if  alfa alfa-if Split-Half scale-pares scale-impares cronbach kuder kuder-if p q p*q-if dialog-value average-correlation eign eigenvalues pa-eigen theta guttman pares impares unequal-split e-axis v-axis f-matrix final-comunal r-recompuesta r-residual var-unique imput-r-matrix num-factors point-bis-corr corrected-point-bis-corr)  () vista-analysis-plugin-object-proto )



;; PLUGIN STEP 5: CODE LOAD STATEMENTS
;; The additional files must be in a subdirectory and 


(load (strcat *item-plugin-path* "rel-analysis.lsp"))
(load (strcat *item-plugin-path* "rel-create-data.lsp"))
(load (strcat *item-plugin-path* "rel-report.lsp"))
(load (strcat *item-plugin-path* "rel-vis.lsp"))
(load (strcat *item-plugin-path* "rel-vis2.lsp"))


;; PLUGIN STEP 6: ISNEW METHOD

(defmeth reliability-model-object-proto :isnew (title data dialog)
     (call-next-method title data dialog))
